home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / EZNET.ZIP / DEMO.ZIP / DEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-10-31  |  2.1 KB  |  102 lines
  1. Attribute VB_Name = "DEMO1"
  2. Global Const KEY_DELETE = &H2E
  3.  
  4. Global Actor$, Role$, Legend$
  5.  
  6. Sub ActivateForm()
  7.   CheckZoomMenu
  8.   MDI1.Command5.Enabled = True
  9.   MDI1.Command5.Caption = "Comments " + MDI1.ActiveForm.Caption
  10.  
  11.   With MDI1.ActiveForm.Net1
  12.     MDI1.ReadOnlyMenu.Checked = .ReadOnly
  13.     MDI1.MultiSelectionMenu.Checked = .MultiSel
  14.     MDI1.CanSizeNodeMenu.Checked = .CanSizeNode
  15.     MDI1.CanMoveNodemenu.Checked = .CanMoveNode
  16.     MDI1.CanStretchLinkMenu.Checked = .CanStretchLink
  17.     MDI1.CanMultiLinkMenu.Checked = .CanMultiLink
  18.     MDI1.CanDrawNodeMenu.Checked = .CanDrawNode
  19.     MDI1.CanDrawLinkMenu.Checked = .CanDrawLink
  20.     MDI1.AutoScrollMenu.Checked = .AutoScroll
  21.   End With
  22. End Sub
  23.  
  24. Sub CheckZoomMenu()
  25.   Dim Zoom%, i%
  26.  
  27.   Zoom = MDI1.ActiveForm.Net1.Zoom
  28.  
  29.   Select Case Zoom
  30.   Case 100
  31.     i = 0
  32.   Case 200
  33.     i = 1
  34.   Case 50
  35.     i = 2
  36.   Case 0
  37.     i = 3
  38.   End Select
  39.  
  40.   MDI1.ZoomValueMenu(i).Checked = True
  41. End Sub
  42.  
  43. Sub CursorShape(Net1 As Control)
  44.   With Net1
  45.     Dim area%
  46.     area = .PointedArea
  47.     Select Case area
  48.     Case 0
  49.       .MousePointer = 8
  50.     Case 1
  51.       .MousePointer = 7
  52.     Case 2
  53.       .MousePointer = 6
  54.     Case 3
  55.       .MousePointer = 9
  56.     Case 7
  57.       If .SelectMode = True Then
  58.         .MousePointer = 2
  59.       Else
  60.         .MousePointer = 0
  61.       End If
  62.     End Select
  63.   End With
  64. End Sub
  65.  
  66. Sub DeactivateForm()
  67.   With MDI1
  68.     Dim i%
  69.     For i = 0 To 3
  70.       .ZoomValueMenu(i).Checked = False
  71.     Next
  72.     .ReadOnlyMenu.Checked = False
  73.     .MultiSelectionMenu.Checked = False
  74.     .CanSizeNodeMenu.Checked = False
  75.     .CanMoveNodemenu.Checked = False
  76.     .CanStretchLinkMenu.Checked = False
  77.     .CanMultiLinkMenu.Checked = False
  78.     .CanDrawNodeMenu.Checked = False
  79.     .CanDrawLinkMenu.Checked = False
  80.     .AutoScrollMenu.Checked = False
  81.   End With
  82. End Sub
  83.  
  84.  
  85.  
  86. Sub SpeedOFF(Net1 As Control)
  87.   With Net1
  88.     .Repaint = True
  89.     .DoSelChange = True
  90.     .CheckItem = True
  91.   End With
  92. End Sub
  93.  
  94. Sub SpeedON(Net1 As Control)
  95.   With Net1
  96.     .Repaint = False
  97.     .DoSelChange = False
  98.     .CheckItem = False
  99.   End With
  100. End Sub
  101.  
  102.